Option Explicit
Sub N_Sample013()
    Dim i As Long
    Dim j As Single
    For i = 1 To 5
        MsgBox i
    Next
    For j = 1 To 2 Step 0.2
        MsgBox j
    Next
End Sub